Public Function New( _
   ByVal text As String, _
   ByVal ParamArray format() As Object _
)

public InterpreterException( 
   string text,
   params object[] format
)

InterpreterException ex = null;
try { throw new InterpreterException("TEST"); }
catch (InterpreterException e) { ex = e; }

Assert.IsNotNull(ex);
BinaryFormatter bf = new BinaryFormatter();
            
using( MemoryStream ms = new MemoryStream() )
{
    bf.Serialize(ms, ex);

    ms.Position = 0;
    ex = (InterpreterException)bf.Deserialize(ms);
    Assert.AreEqual("TEST", ex.Message);
}

Dim ex As InterpreterException = Nothing
Try
    Throw New InterpreterException("TEST")
Catch e As InterpreterException
    ex = e
End Try

Assert.IsNotNull(ex)
Dim bf As New BinaryFormatter()

Using ms As New MemoryStream()
    bf.Serialize(ms, ex)

    ms.Position = 0
    ex = DirectCast(bf.Deserialize(ms), InterpreterException)
    Assert.AreEqual("TEST", ex.Message)
End Using